EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


*tFILE®**1]D**LIBCREDIR 


PoP eee eT eee ee ee ee eT eT eee eee ee eee eT ee ee ee ee ee ee es es ee es ee ee es es eT a es ee ee ee ee) 


oa ar fo ae 4 ca 

or ac 4-4 fo aoa 
eo fs le ame aie a 

aw aaoo 

ao ca 

foals 4 ane 
@Qaeaancaacacacacacaac 
@aeawaeaaraeacaeacare 
— —— 
— peered 


— oe — 
—_— — 
anaoaaaaaaa 
ancononoeoaananana 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
aa aa 
AaAnaaaanananaaaa 
anaoooaoooaooaananaana 
www wus 
usu sud 
usw wu wu 
wu wou wu 
usu wu) Add Lad 
tu wus wou 
wud wus wu 
wi usu wi 


ecacaec ao 
aa ca za 
ca ca ca 
ca ecanc 
ca ecacac 
ca ca 
ca ca 
@Qoeaaacaacaacaacaca 
Qaacacacacacacacacaccacac 
vu vw 
vv A 
Vw WO 
Vv deed 
vv Se 
vv vv 
Vwuv ek 
vVwwv vv 


WII I 
VEYVYVYVYUUUUY 


“ee onsons 
—— et os 
a4 
a 
JH 
ee) 
a4 
se) 
i) 
=) 
ee LLL 
att dH II III I I I 


LLLLLLLLLL 
LLLLLLLLLL 


| 


| N ss 
LIBSCREATE_DIR = Create director 19° Sep-1984 AX-11 Bliss-32 V4.0-74 Page 1 
, 14-Sep- 7 99: 38:58 LIBRTL.SR ROIL IBCREDIR.B52;1 . (1) | 
| 
; 1 900) ATITLE “LIBSCREATE DIR = Create directory' : 
; ¢ Ons MODULE LIBSCREATE BIR ( ' Create directory | : 
: ? at {DENT = 'v03-005' ! File: LIBCREDIR.B32 Edit: v03-001 : 
ot cee oe a ee 
: sit 4 } PITIITITITILILILI LILI LL LLL LLL LLL iiiiiiiiiiiiiiiiiiiiiT ite : 
. '® e : 
; 9 0009 1 i COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * ; 
> 10 0010 1 i DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * : 
3 4] oot) ! it ALL RIGHTS RESERVED. ” : 
b4 . ® e 
: ig ooig 1 fe Lad SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
c > 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 15 0015 1 ! INCLUSION OF THE ABOVE Sr TR oct ER NOTICE. THIS SOFTWARE OR ANY OTHER * > 
3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
4 17 00°? 1 !'!* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® : 
: 48 Q018 1 is TRANSFERRED. * ; 
° H * . 
: 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * FH 
3 $§ 8 ; ' 7” CORPORATION. : : 
: 24 0024 1 rr DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
$ 25 on5¢ 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
; & 0026 1 !* * : 
ae 4 4 0027 1 !* . : 
3 28 0h] Me SPCC SPST PTT Tee Tee eee Pe Peer rrr rrr iri tii iit iti iii iii iii iiiiiiiiiiiit, | 3 
3 9 0029 1! : 
; $6 $080 1 i¢e | ; 
: 3 52 : FACILITY: General Utility Library : 
: g $038 1 | ABSTRACT: | ; 
 / it 1! 3 
; 2 bose : This routine creates a directory file. : 
; * et £4 : ENVIRONMENT: Runs at any access mode - AST reentrant 3 
; 39 0039 1 | AUTHOR: Martin L. Jack, CREATION DATE: 23-Dec-1981 ; 
3 40 0040 1! 3 
; 41 0041 1 ! MODIFIED BY: | : 
i 48 0042 1 | | ; 
ba | 0045 1! v03-005 LMP0189 L. Mark Pilant, 6-Feb-1984 14:10 : 
s 64 044 1! Rip out the ACL propagation done here. It is now done by : 
; re Re? : the disk ACP. : 
> 47 047 1! V03-004 RASO249 Ron Schaefer Feb-1984 ; 
; 48 048 1! Fix this routine to cope with scent teen: The eicectery 3 
; 69 9 1! will be created in the first entry of the List just 3 
3 20 050 1! Like a file create. 3 
3 1 51 1! We suppress the device assignment and directory lookups. é 
3 26 8936 1! Thus we need to 69 ° SGETOVI in order to determine that 3 
; a bez : the device is a disk. : 
: 55 $084 1 i vO3-003 LMPO143 L. Mark Pilant, 24-Aug-1983 3:44 ; 
, & 8236 1! Propagate the directory default protection ACE to the 3 
s $7 0057 1! created directories. 3 


cee Si LIBSCREATE_DIR = Create directory i 00-1384 99: 49: $3 yA X=11 OL lear iéche 


1 
1 
1 . 
1 
1 
1 
1 
1 


btR.642:1 Page 44 


ep- IBRTL.SRCJLI 


v03-002 Ketor6? Keith B. Thompson 26-Jul-1983 
New RMS file nentne features 


v03-001 ec eoers Andrew C. Goldstein, ag-Raro1962 13:50 
Fix read references to top level directories 
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LIBSCREATE_DIR LIBSCREATE_DIR = Create director 1ese 1984 00:40:49 AX=11 Bliss-32 V4.0-74 Page 3) 

ret Declarations ' 12-8 08- 1 3be 12:38:28 ANBRTL SREILTSCKEDSR B21 . (2) 

: 67 066 1 ZSBTTL ‘Declarations’ : 
; 668 067 1! ; 
: 69 068 1 | SWITCHES: j 
: 70 069 1 ; 
; 71 0070 1 3 
; te 9071 SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); | : 
i. Sors 1: | : 
eB: 0074 1 | LINKAGES: : 
: 76 0075 1: ; 
; 77 0076 1 LINKAGE : 
; 8 9077 LINKAGE_JSB_2_2 = JSB(REGISTER=0;REGISTER=1,REGISTER=2); | : 
: 80 0079 1 | TABLE OF CONTENTS: | ; 
> «81 0080 1: | ; 
; 8 0081 1 : 
; 8 008¢ 1 FORWARD ROUTINE : 
:  B4 0083 1 LIBSCREATE_DIR; ' Create directory | : 
; 85 0084 1 | ; 
: 86 0085 1! : 
: 87 0686 1 ! INCLUDE FILES: | ‘ 
3 88 0087 1! : 
: 89 0088 1 | : 
; 4 4434 } LIBRARY ‘SYS$LIBRARY:LIB'; ! System symbols | ‘ 
: sd : 'w! REQUIRE ‘RTLIN:RTLPSECT'; ! Define PSECT declarations macros : 
: 94 0093 1! : 
: «95 0094 1 ! MACROS: : 
: 96 0095 1: : 
ee 0096 1! NONE ; 
; 98 0097 1! ; 
: 99 0098 1 ! EQUATED SYMBOLS: | ; 
: 100 0099 1: ; 
> 101 0100 1! NONE : 
: 102 0101 1: | F 
: 103 0102 1 | FIELDS: ; 
> 104 0103 1: | : 
: 105 0104 1: NONE ; 
: 106 0105 1: : 
: 107 0106 1! PSECTS: | ; 
: 108 0107 1: ‘ 
3 + 4s 4 : te! DECLARE _PSECTS (LIB); ' Declare PSECTs for LIBS facility : 
: 111 6190 1 CODE = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 3 
; 12 0111 «1 PLIT = “LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD-RELATIVE)) 3 
> 11 g11g 1 OWN = “LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING MODE (LONG RELATIVES) | F 
; 114 out GLOBAL = _LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVES) ; | : 
: 116 0115 1 | OWN STORAGE: | ; 
: 117 01146 1! | : 
>: 118 0117 1: NONE : 
: 119 118 1! | : 
: 120 119 1 | EXTERNAL REFERENCES: | : 
3; 6121 | ae 3 
i? : 13 1 ; 
: 1 0122 1 EXTERNAL ROUTINE : 
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LIBSCREATE_DIR LIBSCREATE_DIR = Create director 1b-se -1984 00:40:49 AX-11 Blis is V4.0-74 P Ll 
vO8-005 Declarations ' e=8ep-198e 12:38:58 EC Terre®srescisckeoiR 682; 1 9 23 vo 
: 134 123 LIBSANALYZE_SDESC_R2: LINKAGE.JSB.2-2, Analyze descriptor | 
3 vert octal to binar 
os § 125 1 LIBSFREE EF, ' Deallocate an event flag 
3 ! { 4 $ : LIBSGET_EF; ' Allocate an event flag 
: 129 $158 1 EXTERNAL AL egg ! Completion stone codes 
; 150 813 1 LIBS_INV ' Invalid argume 
: 131 0130 1 L1B$~ INV ILSPE; i Invalid file coactftcetten 
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LIBSCREATE_DIR CREATE_DIR = Create director ise =1984 00:40:49 AX=-11 Bliss-32 V4.0-74 Page 5 Ly 
V8 008 CREATE_DIR = Create directory 12-Sep-19 4 99:98:38 LIBRTL. SRCILIBCREDIR 882: (3). vO 
ZSBITL "LIBSCREATE_DIR = Create directory' 
GLOBAL ROUTINE LIBSCREATE_DIR ( ' Create directory 
DEV_DIR_SPEC, ! Device and directory string 
R_UTC, ' Owner UIC | 
PROT_ENABLE, ' File protection enables 
PROT_VALUE, ' File protection value 
MAX_VERSIONS, ! Maximum version count 
, RVN ! Relative volume number 
le4 
} FUNCTIONAL DESCRIPTION: 


This routine creates directory files - it 
creates one directory (spec) at a time. The ? 
directory may have up to 7 Levels of sub-directories. 


! CALLING SEQUENCE: 


| 
| 
ret_status.wic.v = LIBSCREATE_DIR (dev-dir-spec.rt.dx, | 
Cowner-UIC.rlu.rJ, Cprot-enable.rwu.rJ, Corot-value.rwu.rd, 
Cmax-versions.rwu.rJ, Crvn.rwu.rd) 
| 
| 


FORMAL PARAMETERS: 


DEV_DIR_SPEC Address of a descriptor for the device and directory 
specification. This string is a standard RMS file 
specification; it must not contain a node name, file 
name, file type, file version, or wild card characters; 
it must contain an explicit directory; it must | 
reference a disk device. The string must be no Longer 
than 255 characters. 
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: OWNER _UIC Address of a longword that specifies the owner UIC of 
the created directories. If specified with a zero 
! 
i 
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value, the owner UIC is that of the parent directory. 
This is an optional parameter. The default is the | 
current process UIC, except that if the directory is in 
UIC format, that UIC is the default. 


PROT_ENABLE Address of a word containing a mask to specify the bits 
of prot-value to be used. its of the file protection 
corresponding to set bits in prot-enable are set to the 


value of the corres onding bit of the prot-value _ 
parameter; bits of the file protection corresponding to 
clear bits in prot-enable are set to the value of the 
corresponding bit of the parent directory's file 
protection with delete access dropped for all access 


categories. This is an optional parameter. oe | 
default is a mask of all zero bits, which results in 
| 


0909 09 08 SI NI IS SIS SNS OO 


propagating the parent directory's file protection. 
f prot-enable is all zero, prot-value is ignored. 


PROT_VALUE Address of a word containing a mask to speci ty the 
value of the file protection. Bits of the file 
protection corresponding to set bits in prot-enable are 
set to the value of the corresponding bit of the 
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LIBSCREATE_DIR LIBSCREATE_DIR = Create director 16-Sep-1984 00:40:49 AX-11 Bliss-32 V4.0-74 Page 
408-008 LIBSCREATE_DIR = Create directory e286 71382 994 :28 LIBRTL.SRC [ISCRED GR 89251 . 
: 190 1 3 7% rot-value parameter. This is an optional parameter. 
; 191 1 ? he default is a mask of all zero bits, which specifies 
5 136 190 1! full access for all access categories. In typical 
; 19 7) oe usage, prot-value is not omitted unless prot-enable is 
3 13¢ p38 : } also omitted; in this case, prot-value is ignored. 
: 196 01946 1! MAX_VERSIONS Address of a word that specifies the default maximum 
; 197 0195 1! number of versions for files cataloged in the created 
; 198 0196 1! directories. This is an optional parameter. The 
; 199 0197 1! default is the parent directory's default version 
; 200 0198 1! Limit. If specified as zero, the maximum number of 
; $0] 3444 ; versions is not Limited. 
; $08 0201 1! RVN Address of a word that specifies the relative volume 
; 204 OS0§ 1 3 number within a volume set on which the directories 
; 205 0203 1! must be created. This is an optional parameter. The 
3 soe Bste : default is arbitrary placement. 
; 208 0206 1! The format of PROT_ENABLE and PROT_VALUE is: 
; 209 0207 1! 
; 210 0208 1! BES 
3 2 0209 1! §5432109876543210 
3 212 0210 1 ' fe ee om poe monmae $mmoeone Feo emomne + 
; at 0211 1! tWworld Group ‘Owner {System | 
> 214 osi¢ 1! iD EWRIDE WRIDE WRID E WR! 
3 215 021 1 ' peste eeae ow ocnecwe $mosmocae $eceocce + 
> 216 0214 1! 
$ 6aie 0215 1! Set bits deny access and clear bits grant access. 
> 218 0216 1! 
; 219 0217 1 =! IMPLICIT INPUTS: 
; 220 0218 1! 
$ «ges 0219 1! NONE 
3 gee 0220 1! 
s ges 0221 1 ! IMPLICIT OUTPUTS: 
; 224 o5s§ 1! 
3 gee 0223 1! NONE 
3; ¢ee 0224 1! 
der 0225 1 ! COMPLETION STATUS: 
; 228 0226 1! . one ; , 
: 229 0227 1! SS$_NORMAL Normal successful completion; all specified directories 
; tH osee ! already exist 
: @se $380 1! SS$_CREATED Normal successful completion; one or more directories 
: $37 bees : } create 
3 @s9 0933 1! LIBS$_INVARG Bequired argument omitted, or dev-dir-spec longer than 
3 $38 Oeze : 255 characters 
; 238 0236 1! LIBS_INVFILSPE File specification did not contain an explicit | 
; Sip 0237 1! directory or contained a node name, file name, file 
3 re OS36 ' } type. file version, or wildcard, or device not a disk 
; 2e¢ 340 | LIBSANALYZE_SDESC errors 
: 24 41 1! SPARSE errors 
3 246 seg » 3 SASSIGN errors 
: 245 0245 1! LIBSGET_EF errors 
3; 246 0244 1! $010 errors 


| 
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VO8~008 CREATE_DIR = Create directory 12286871 382 19°98 :38 PYARTL SREILTBCRED IR. B92: 1 . (3). 
47 S$DASSGN errors 
rt LIBSFREE_EF errors 
0 i SIDE EFFECTS: 


LIBSCREATE_DIR does nothing with the ACL associated with a 


a*cectery. ao of the file system (XQP). There is bit 
n 


Oo ent a 
WR" OOONOUSwnr— 


T 
T 
' 
! 
1 
! 
‘ 
Directory files created as requested. 
1 
! 
! 
' 
' 
! 
1 
' 
' 
! 
! 
' 
! 
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$ 
$ 
H » 2 
; $ 1 
: 1 
; 8 1 
; 1 
3 0 1 
; : 2 
; ¢ 1! 
; € 1} 
; 4 1! 
; > 13 s is the jo a 
; » 1 defined he FIB (FIBSx_DIRACL) that tells the file system (ACP) 
; , Bs that the file being created is going to be a directory file. The 
3 s Tf file system (ACP) 
: 9 1! then copies the ACL from the perent directory (excluding ACEs 
; € » if marked as NOPROPAGATE). If the ACL of the sub-directory is 
Ss a . 22 to be different than the parent directory, it is necessary to 
; § : ¢ : : alter it after the directory is created. 
2 9 ha 
; 268 6 $ BEGIN 
; 269 7 LOCAL 
: 270 8 2 FAB: SFAB_DECL, ' FAB for SPARSE 
; 271 269 § NAM: $NAM gat ! NAM block for SPARSE 
3 $f¢ 0270 ESA_BUFFER: VECTORCNAMSC MAXRSS ,BYTE], ! Expanded string area 
; er 0271 2 TEMP_DESC: BLOCKLDSESK 5 BLN BYTE], * Utility descriptor 
; 274 Oere 2 NAME _BUF FER: VECTORC15, BYTE), ! Dingctory name buffer 
> 275 0273 2 NAME~DESC: BLOCKCDSC$k ¢_BLN.BYTEI. ! Directory name descriptor 
: 276 0274 2 DEV_ATTR: BLOCK(4,BYTEJ; ! Device attributes from $GETDVI 
s gre 0275 2 DVI_ITMLST: BLOCK(C4,LONG] ! One itemlist entry 
: 278 0276 2 INITIAL (DVIS. DEVCHAR®65536+4,DEV_ATTR,0,0), 
; 279 0277 2 RECATTR: BLOCKCATRSS_RECATTR, BYTE) 
; 280 0278 § ! Record attributes 
> 281 0279 UCHAR: BLOCKCATRSS_UCHAR, BYTE 
; 282 0280 2 VOLATILE ! File characteristics 
; 283 0281 2 FPRO: BLOCKCATRSS_FPRO/BYTE) 
> 284 oSe6 2 oy erake ! File protection 
; 285 028 uIC: BLOCKCATRSS_UIC, BYTE) | 
; 286 0284 V LATILS ! File owner UIC 
3 287 0285 HEADER: BLOCKCATRSS_HEADER, BYTE) 
; 288 ogee OAT aEE ' File header 
> 289 0287 FIB: BLOCKLF BSC_LENGTH BYTE. ' 
; $30 osee FIB_DESC: VECTORE H Pegcr jeter for FIB : 
: 291 89 ATR: BLOCKVECTORC7,8,BYTE), ! Attribute descriptors 
; $36 OSa5 § 10SB: VECTOR(C4,WORDJ, ! 1/0 status block 
:; 2g 0291 CHANNEL WORD, ! Channel number 
; Soe B56 FN, ' Event flag number 
: 295 029 GROUP ! Binary group number 
5 $38 OS9¢ MEMBE ! Binary member number ‘ 
> 297 0295 LOCAL_ENABLE: WORD, i Value of PROT_ENABLE after defaulting | 
; 298 0296 LOCAL VALUE : WORD, ! Value of PROT_VALUE after defaulting 
: 299 $3 DIR_LENGTH ! Length of residual directory string 
; 300 98 DIR-ADDRESS ' Address of residual directory string 
; 301 99 REACDIR_ADDRESS, i Real (not root) directory pointer 
; 30 00 STATUS_T, ' Status return 
; 0301 STATUS_2, ! Status return 
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UC JRSCREATE_OIR IBSCREATE_DIR = Create directory 16-Sep-1984 00:30:48 AX-11 Oh hearts V4.0-74 
v03-00 IBSCREATE_DIR = Create directory 14-Sep-1984 12:38:28 LIBRTL.SRCJLIBCREDIR.B52;1 
04 STATUS_4, ! Status return 
05 STATUS_5, ! Status return 
06 stATUS.8. ' Status return 
07 STATUS 7, ' Status return 
8 FINAL_STATUS; ! Status return 
BIND 
DIR_TYP_VER = UPLIT BYTE (*.DIR;1"); 
Leet ' File type and version string 
sui tin PROCESS; ! Block exited when processing complete 
ACTUALCOUNT, ! Return number of arguments 
L ! LOCC instruction : 
NULLPARAMETER, i Test if parameter specified 
ROT; ! Rotate longword 


Ensure that the required parameter is present. 
IF ACTUALCOUNT() EQL 0 

RETURN LIBS_INVARG; 
Initialize RMS structures required to do a $PARSE. 
SFAB_INIT( FAB 


P = FAB, 
= NAM ); 
P SNAM_INIT( NAM = NAM, 
P NOP = <SYNCHK,NOCONCEAL>, 
P = ESA BUFFER 


BUF 
ESS = NAMSC_MAXRSS ); 
Analyze the input descriptor and set up the FAB filename descriptor. 
GIN ! block to use output registers 
GISTER 


R1 
R2 


23 


SEE EWN AWWA PIPPIN NINININDY 2 2 OO Oe ee 


STATUS_1 = LIBSANALYZE_SDESC_R2(.DEV_DIR_SPEC; R1, R2); 
IF NOT~.STATUS_1 


RETURN .STATUS_1; 
IF .R1 GTRU 255 
THE 
RETURN LIBS_INVARG; 
FAB ( FABSB_FNS } R1; 
FAB C FABSL_FNA J = . 
END; ! block to use output registers 
'¢ 
! Parse the file soos {tigation to obtain the expanded name string. RMS will 


' usually return RMS$_DNF (directory not found), but all that is needed is 
the expanded string. 
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VO8008 LIBSCREATE_DIR = Create directory 14-Sep-19 4 19:98:38 LIBRTL. ROILIBCREDIR.B 231 . (3) | 
; 361 0359 
:; 36 0 60 2 STATUS_2 = SPARSE (FAB=FAB) ; | 
; 2 61 If NOT .STATUS_ 
; 364 0 6¢ TH 
; 22 8 oF RETURN STATUS_2; 
; mer 0365 ! Perform various error checks on the file specification. It must not have 
: 368 0366 ! a node name, file name, file type, or file version; it must have a directory | 
3 $3 $362 } name that does not contain wildcards. 
; 71 b3es ¢ IF NOT .NAMCNAMSV Bxe DIR] OR 
, oF 0370 (.NAMCNAMSL_FNB) AND 
Bs 0371 4 (NAMSM_QILDCARD OR 
; 374 037@ 3 NAMSM_NODE OR NAMSM_EXP_NAME OR NAMSM_EXP_TYPE OR NAMSM_EXP_VER)) 
; Bt? 037 NEQ 0 
; Je 0374 THEN 
: er bee RETURN LIBS_INVFILSPE; 
; 379 st Ia4 ; Get the length and address of the directory string without brackets. 
; 381 0379 2 DIR_LENGTH = .NAM [_NAMSB_DIR J = 2; ! Length without brackets 
; 382 0380 2 DIRTADDRESS = .NAM C NAMSC_DIR ) + 1; i Address without bracket 
3; 384 O3e¢ $ ! If there is a root directory locate the real directory and squish | 
; 385 0383 2 ! them together 
: 386 0384 2! | 
; Ser 0385 2 IF .NAM C NAMSV_ROOT_DIR J 
; 388 0386 ¢ THEN 
> 389 0387 BEGIN 
; 390 0388 3 
3 0389 3 REGISTER 
: 392 0390 3 RO = 0, 
; ee 0391 3 R1 = 1; 
> 394 0392 3 
; we 0393 3 LOCAL 
: 396 0394 3 TERMINATOR: BYTE; 
: 397 0395 3 
3 ad Bene ; TERMINATOR = ..NAM [C NAMSL_DIR J) + 2; ! Close = Open+2 
; rts O05 ; IF NOT LOCC( TERMINATOR, DIR_LENGTH, .DIR_ADDRESS; RO, R1 ) 
: 402 0400 RETURN LIBS_INVFILSPE; ! No Root Found 
: 403 0401 
3 B68 REALDIR_ADDRESS = .R1; 
: 405 40 : ; ; 
; 0404 : Found the terminator of the root directory, the real directory 
3; 407 0405 ' will be 2 past it, i.e. ‘‘CROOT.JCOIRI' 
; 408 0406 : REALDIR_ADDRESS~-* 
3; 409 0407 : : 
; 410 0408 : Move what is left over 2 in order to get rid of the ‘‘J["’ to get: 
3; «6411 0409 : “*CROOT.DIRI 
3 a16 Reid REALDIR_ADDRESS~-“ 
: roy Oris CHSMOVE( .RO, .REALDIR_ADDRESS*2, .REALDIR_ADDRESS ); 
3 416 0414 ! Adjust the direcory length 
: 417 0415 ! 


iF ad LIBSCVT_OTB( 3, .REALDIR_ADDRESS + 3, MEMBER) 
RETURN LIBS$_INVFILSPE ! Invalid member number 
END; 
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418 041 DIR_LENGTH = .DIR_LENGTH - 
419 219 ’ . | 
420 “18 END 
421 4) ELSE 
4 ¢ 0420 ; 
? ? 8 1 If no root then the real directory is the uic directory 
: | 
4 2 0% § REALDIR_ADDRESS = .DIR_ADDRESS; | 
: Re 2 } If the directory is in UIC format, convert it to normal format. 
499 0427 2 if .NAM C NAMSV_GRP_MBR ] 
430 0428 THEN 
431 0429 BEGIN 
$38 0430 
$87 bes Convert the group part 
$32 0238 if NOT LIBSCVT_OTB( 3, .REALDIR_ADDRESS, GROUP) 
437 0435 RETURN LIBS_INVFILSPE; ! Invalid group number 
438 0436 
439 0437 } Convert the member part 
| 
| 


DSC$B-DTYPE } = DSCSK~DTYPE mt 
DSC$W-LENGTH J = .NAM"C NAMSB DEV); 
TEMP DESC £ DSCSATPOINTER ) = .NAM LC NAMSC_DEV J; 


Set up the FIB to look up the MFD. 


CHSFILL(O, FIBSC_LENGTH, FIB) 
FBC Bu an PIRSA URITE OR FIBSM_NOREAD OR FIBSM_NOWRITE; 


Bef DSC$B_CLASS 


FIBCFIBSW_FI 
FIBCFIBSW_FID-SEQ) = FIDSC"MFD; 


' Set up the FIB descriptor. 


' 
FIB ~DESEET EES LENSTN: 


FIB-DESCC1 
Set up the name descriptor. The length is filled in as need be. 
NAME _DESCCDSCSA_POINTER] = NAME_BUFFER; 
'¢ 


i Assign a channel to the device. The descriptor is already set up from 
a a preceding operation. 


SRLS 
DIAM & 
CONOUSWM—O”O 

So 

- 

uw 


459 0457 


STATUS_4 = SASSIGN(DEVNAM=TEMP_DESC gHAN= CHANNEL) ; | 
IF NOT~.STATUS_4 THEN RETURN .STATUS 4 | 
i 
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18$ . L 
1B$ - : vo! 
; 475 473 : 
: 476 474 2 14 : 
; 47 475 ' Get the device characteristics and make sure this is a disk-device : 
; 478 476 i and not mounted foreign. F 
: 479 047 ie E 
; 480 bess L 
; 481 479 STATUS_4 = SGETDVIW(CHAN=.CHANNEL, 1 TMLST=DVI_ITMLST); L 
; 4B¢ 0480 2 IF NOT~.STATUS_4 THEN RETURN .STATUS_4; f 
; 48 0481 2 IF NOT .DEV_ATTRCDEVSV_RNDJ OR .DEV_ATTRCDEVS$vV_FOR) ¢ 
> 484 pees THEN 
; 485 048 BEGIN . 
: rts bege SDASSGN(CHAN=. CHANNEL); 
: 48 485 RETURN LIBS_INVFILSPE; 
> 488 0486 § END; 
: 489 0487 
: 490 0488 1+ 
; «491 0489 ' Allocate an event flag. 
; 49 0490 !- 
>; 49 0491 
> 494 049 STATUS_5 = LIBSGET_EF(EFN); 
>; 495 049 IF NOT .STATUS_5 
: 496 0494 THEN 
3; 497 0495 BEGIN 
; 498 0496 SDASSGN(CHAN=. CHANNEL) ; 
3; 499 0497 3 RETURN .STATUS_5; 
; $00 0498 END; 
; 501 0499 
3: pee 0500 '¢ 
:; 503 0501 ! Beginning of block that is exited when processing is complete. FINAL_STATUS 
3 206 Fa) !' contains the status to be returned to caller. 
s 305 050 le 
; 506 0504 
: Sor 0505 PROCESS: BEGIN 
; 508 0506 
; 509 0507 + 
: 510 0508 !' Loop to look up directories. 
; 31) 0509 t= 
3 6[(Sle 0510 
: 515 0311 3 WHILE 1 00 | 
: 5146 Belg 4 BEGIN 
s S19 0513 4 
; 516 0514 4 + 
s Si¢ 0515 4 ! Copy the file ID to FIB$W_DID so that the next lookup is done in that 
3 218 B28 4 ' directory. 
3 1 1 4 le 
3 339 0518 4 
; tee 0519 4 FIBCFIBSW_DID_NUM) = .FIBCFIBSW_FID_NUM); 
3 256 0520 4 FIBLFIBSW_DID_SEQ) = .FIBLFIBSW_FID_SEQ); 
3 : ? B2 1 ? FIBLFIBSW_DID_RVN) = .FIBLFIBSW_FID_RVNJ; 
$ dee b2 g 6 1+ a 
; 526 524 4 ' Locate the next directory name. 
: 527 525 4 - 
; 528 5 § 4 : 
3; Sev 5 5 BEGIN ! block to use output registers 
; 530 be 8 : REGISTER 
3 $51 529 = 0, 
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LIGSEREATE DIR LIBSCREATE_DIR = Create directory 18-Sep-1984 90:40:68 at Bliss-32 rate ot Page 12) 
v03-00 LIBSCREATE_DIR = Create directory 14-Sep-1984 12:38:28 LIBRTL.SRCILIBCREDIR.B52;1 (3) | 
: 83 0530 = 1; | 
; 531 LOCAL 
; 4 5 ¢ NAME _LENGTH 
; 3 > 09 ; NAME ADDRESS; | 
g Sor 0535 NAME_ADDRESS = .DIR_ADDRESS; ! Save starting point 
>; 538 0536 2 LOCCTRREF(2C'."), DIR_LENGTH, .DIR_ADDRESS; RO, R1); P 
; So 0537 E_LENGTH = .DIR_LENGTH - .RO; } Length preceding dot or end 
: 540 0538 5 DIR_ADDRESS = .R1 ? 1; ! Prune to string following dot 
: 361 0539 5 = .RO - 1; | 
3 20g 0540 5 DIR_LENGTH = .RO; 
> 54 0541 2 
; 544 O4¢ + ; 
> 345 0543 5 : Construct the directory name concatenated with '.DIR;1°' in the name 
; 546 0544 5 ! buffer, and a descriptor for this name in the name descriptor. 
: 547 0545 5 !- 
> 548 0546 5 
>; 549 0547 5§ NAME _DESCCDSC$W_LENGTH] = .NAME_LENGTH + 6; 
; 30 0548 5 CHSMOVE (6, DIR_TYP_VER, CHSMOVET.NAME_LENGTH, «NAME _ADDRESS, NAME_BUFFER)); 
s 3) 0549 4 END; ! block to use output registers 
3 226 0550 4 
3 3 0551 4 '¢ 
; 554 023¢ 4 : Look up the directory at the current level. If the directory 
3 339 0553 4 ! does not exist, exit the loop to begin creating directories. 
>; 556 0554 4 te 
s Sor 0555 4 
; 558 P 0556 4 FINAL_STATUS = $Q10W( 
3 SOP P 0557 4 FONC=I0$_ACCESS, 
: 360 P058B 4 CHAN=. CHANNEL, | 
; 561 P 0559 4 EFN=.EFN 
: 562 P0560 4 10SB=10S6 
: 563 P 0561 4 P1=FIB DESC 
> 564 056¢ 4 P2=NAME_DESC); 
; 565 0563 4 IF .FINAL_STATUS THEN FINAL_STATUS = .10SBC0); 
; 566 0564 4 IF .FINAL_STATUS EQL SS$_NOSUCHFILE THEN EXITLOOP; 
3; er 0565 4 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; 
: 568 0566 4 
; 569 0567 4 + ae me ; 
: 570 0568 4 ! If no more directory levels were specified, all specified directories 
3 «(ST 0569 4 ' already exist, so return with success. 
: arg 0570 4 - 
3 «(OF 0571 4 
; 574 07¢ 4 IF .DIR_LENGTH LEQ 0 
: 575 0573 4 THEN | 
; 576 0574 5 BEGIN 
; 577 0575 5 FINAL_STATUS = SS$_NORMAL; 
; 578 0576 5 LEAVE PROCESS; 
: 579 0577 4 END; | 
: 580 0578 END; 
; «#581 0579 
; abe 0580 '¢ ; 
3; 0581 ! We have reached the level at which directories do not yet exist. FIBS$W_DID 
; 584 b28¢ ! now contains the file ID of the directory in which the new directory must be 
3 283 8267 ; cataloged and the filename descriptor contains the name of the new directory. | 
: 587 0585 
: 588 0586 '¢ | 
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yO8~008 LIBSCREATE_DIR = Create directory 132808-1 384 99:3 :28 LIBRTL.SRCILIBCREDI 882:1 “ (3) | 
; 589 p28? ' Set up the attribute List. Because of dependencies later in the routine, 
5 an0 0365 the file header attribute must be last, preceded by the owner UIC attribute. 
: 59 590 | 
; 298 0591 ATRCO, ATRSW_TYPE] = ATRSC_RECATTR; ! Record attributes 
; 594 8236 ATRLO, ATRSW_SIZEJ = ATRSS_RECATTR; 
; 595 59 ATRLO, ATRSL_ADDR] = RECATTR; | 
; 596 0594 3 ATRE1, ATRSW-TYPE] = ATRSC_UCHAR; ! File characteristics | 
3 sur 0595 ATRL1, ATRSW_SIZEJ] = ATRSS_UCHAR; 
; 598 $34) ATRL1, ATRSL_ADDR] = UCHAR; 
; 599 059 ATRL2, ATRSW_TYPEJ = ATRSC_FPRO; ! File protection | 
; 600 0598 ATRLE2, ATRSW_SIZEJ = ATRSS_FPRO; 
: 601 0599 ATRL2, ATRSL_ADDRJ] = FPRO; 
; 60¢ 0600 3 ATRES. ATRSW-TYPE] = ATRSC_UIC; ! File owner UIC 
; 60 0601 ATRLS, ATRSW_SIZE] = ATRSS_UIC; 
; 604 p60 ATRLS, AIRS. need = UIC; 
; 605 060 ATREG, ATRSW-TYPE] = ATRSC_HEADER; ! File header 
; 606 0604 ATRL4, ATRSW_SIZEJ = ATRSS_HEADER; 
; 607 0605 ATREG, gree, ADDR] = HEADER; 
; 608 0606 ATR(S, 0,0,32,0] = 0; ! End of List 
; 609 0607 
3; 610 0608 
: 611 0609 '¢ 
; 6t2 061 ! Copy the file ID back to FIBSW_FID to do the read attributes on the 
: 613 0611 !' Last directory file. 
3 614 061 '- 
; 615 061 
> 616 0614 FIBCFIBSW_FID_NUM) = .FIBCFIBSW_DID_NUM); 
s 617 0615 FIB FiBsu fF 1p. sea) = of tebe tecu-pipencad: 
: 618 0616 FIBCFIBSW_FID_RVN) = .FIBCFIBSW_DID_RVNIJ; 
3: 619 0617 FIBCFIBSW_DID_NUM) = 0; 
; 620 0618 FIB ttetepisvhend = 0; 
3: 621 0619 FIBCFIBSW_DID_RVNJ = 0; 
3; 622 gest 
> 623 0621 3 !+ 
> 624 Boce 3 ! Read the attributes of the last directory file found so that they 
: 625 0623 3 ! may be propagated to the directories created. 
> 626 Bose ; !- 
3 Ger 0625 
; 628 P 0626 FINAL_STATUS = $Q]0W( 
: 629 P 0627 FONC=I10$_ACCESS, | 
: 630 P 0628 CHAN=. CHANNEL, 
> 631 P 0629 EFN=.EFN 
- 63 P 06 0 10SB=10S8 
; 63 P 0631 P1=FIB_DESC, | 
3; 634 0636 P5=ATR); 
: 635 063 IF .FINAL_STATUS THEN FINAL_STATUS = .10SBC0]; 
3; 636 0634 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; 
3; 637 8832 
; 638 6 | 
; 639 +9 f 3 it : “ee 
: 640 638 ' Delete the file header attribute from the attribute List, since it is not 
; 641 0639 ! valid (or necessary) for creates. 
Py O46 640 t= | 
; 64 641 
3; 644 ak ATR(4, 0,0,32,0] = 0; 
3; 645 064 
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- Create directory 


IR - Create directory 3 ats 1 90:98:58 MeRTL sReiL 


Copy the file ID to FIB$W_DID to create the directory. 
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stablish the allocation of the created directories. A Structure Level 1 
irectory is allocated zero blocks; a Structure Level 2 St pec tery is 
Llocated one block. (This block is Later initialized.) In bot cases, 
he file is marked contiguous. 


IBCF IBSW puted = FIBSM ye OR FIBSM 
- R v 
* 


L 
EADERCFH2$B_STRUCLE 


FILCON OR FIBSM_A 
EQL 2 THEN FIBCFIBSL_EXSZ) = T; 


z= 


Set up the end of file pointer. It points to the highest allocated block 
! plus one (with a first free byte of zero). Note that EFBLK is stored in 
inverted format. 


F 
I 
' 
i 
i 
' 
RECATTRCFATSL_EFBLK) = ROT(.FIBCFIBSL_EXSZ] + 1, 16); 


'¢ 


i Establish the owner UIC of the created directories. If the process default 
' UIC is to be used, delete the owner UIC attribute from the attribute list 
to cause the ACP to use the default. 


IF NOT NULLPARAMETER(2) 


BEGIN 
- » -OWNER_UIC NEQ 0 THEN UIC = ..OWNER_UIC; 


m 
aa 


SE 
IF _.NAMCNAMSV_GRP_MBR] 
THEN 


BEGIN 
UIC<16,16> = .GROUP; 
UIC<0,16> = .MEMBER: 


E 
ELSE 

ATRC3, 0,0,32,0) = 0; 
'¢ 
Establish the file protection of the created directories. 


FPRO = .FPRO OR %X'8888'; 
LOCAL_ENABLE = 0; 
IF NOT NULLPARAMETER(3) 


N 
LOCAL_ENABLE = .(.PROT_ENABLE)<0,16>; 
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LOCAL VALUE = .(.PROT_VALUE)<0,16>; 
FPRO = (.FPRO AND NOT .LOCAL_ENABLE) OR (.LOCAL_VALUE AND .LOCAL_ENABLE); 


4 
Establish the default version Limit of the created directories. 


IF NOT NULLPARAMETER(5) 
RECATTRCFATSW_VERSIONS] = .(.MAX_VERSIONS)<0,16>; 


14 
! Establish the placement of the created directories. 


D Note that if placement 
} is specified, it is required. 


IF NOT NULLPARAMETER(6) 
THEN 


BEGIN 

FIBCFIBSV_EXACT] = 1; ' Exact placement 
FIBLFIBSB_ALALIGN] = FIBSC_LBN; ' RVN and LBN placement 
rie FIBSW-LOC_RVNJ = .(.RVN)<0,16>; ' Required RVN 


'+ 
Note that the ACL should be copied from parent to child. 


FIBCFIBSV_DIRACLI = 1; 


1+ 
Loop to create directories. 


WHILE 1 DO 
BEGIN 


+ 
Create and access the file. 
F INAL_STATU Ow ( 

FONC= E OR IOSM_CREATE OR IOSM_ACCESS, 


. — 


HEN FINAL_STATUS = .10SBL0); 
US THEN LEAVE PROCESS; 


44 
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LOCAL_VALUE = 0; 
TF NOT NULLPARAMETER(4) 
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Voss 608 LIBSCREATE_DIR = Create directory 12-8 08- 1 obe 99:4 :28 LIBRTL.SRC (IBCKE btn B82: 31 ° (3) 
; 760 Pee 4 ! If the directory is Structure Level 2, write the first block of the ; 
; 761 7 4 ' file. : 
; 7 760 4 l= ; 
: 76 761 4 : 
: 764 766 4 IF .HEADERCFH2$B_STRUCLEV] EQL 2 ; 
; 765 765 4 THEN ; 
; 76 764 BEGIN . 
; 76 765 CAL $ 
; os 766 BLOCK_BUFFER: VECTOREC256, WORD); ! Block buffer : 
: 770 re8 BLOCK tO, $10.8 ! End of block marker ; 
s ry 6 CHSFICL(O, 5 <Back _BUFFERC1]); ! Fill rest of block 3 
: ite P 0770 FINAL_STATU Us = $arow(~ ; 
, P 0771 FONC=10 WRITEVBLK, : 
3 774 P brre CHAN=. CHANNEL, : 
. ir P0773 5 ad a 3 
: 776 P0774 5 10SB= 3 
: 777 P0775 5 Py sBLG ek BUFFER, ; 
; 778 P 0776 5 ite 3 
; 779 0777 5 P3=1); ; 
; 780 0778 5 IF .FINAL. STATUS THEN FINAL_STATUS = .10SB(0J; : 
; 781 0779 5 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; F 
3 ree 0780 4 END; 3 
; re 0781 4 | 3 
; 784 14-04 £ '+ ; 
3 6765 07835 4 ' Deaccess the file. : 
> 786 0784 4 '- . 
: 787 0785 4 $ 
: 788 P 0786 4 FINAL_STATUS = $Q]0W( : 
: 789 P 0787 4 FONC=10$_DEACCESS, : 
: 790 P 0788 4 CHANE. CHANNEL, : 
; 791 P 0789 4 EFN=.EFN, : 
3; 79 0790 4 10SB=10SB); 3 
; 79 0791 4 IF .FINAL_STATUS THEN FINAL_STATUS = .I10SB(0); ; 
> 794 f45 4 IF NOT .FINAL_STATUS THEN LEAVE PROCESS; | 3 
s T93 0793 4 3 
: 796 0794 4 '¢ : 
3 797 0795 4 i If no more directory levels were specified, they have all been created. | : 
: 798 0796 4 ie : 
; 799 0797 4 3 
; 800 0798 4 IF .DIR_LENGTH LEQ 0 3 
: 801 0799 4 THEN ; 
:; 80 0800 5 BESIN : 
: 0 801 : FINAL_STATUS = SS$_CREATED; : 
; 04 80 LEAVE “PROCESS; : 
; 805 0803 4 END; : 
; 0804 4 3 
; 0805 4 '¢ ; 
; 808 0806 4 : locate the next directory name. : 
; 809 0807 4 ! : 
; 810 0808 4 F 
; «811 0809 5 BEGIN ! block to use output registers 3 
; aig 0810 5 REGISTER . 
s 8 0811 5 RO = 0, : 
: 814 ttt 5 = 1; : 
; 815 0813 5 LOCAL : 
; 816 0814 5 NAME _LENGTH, | : 
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; 817 0815 NAME _ADDRESS; ; 
; 818 8 1 : 
; 819 1 NAME _ADDRESS = .DIR_ADDRESS; ! Save starting point : 
3 as 0818 LOCCTXREF(%C'."), DIR LENGTH, .DIR_ADDRESS; RO, R1); : 
: B21 0819 NAME LENGTH = .DIR_LENGTH = .RO; ‘Length preceding dot or end | : 
3 aS¢ oe 0 ADDRESS = .R1 F 1; ! Prune to string following dot : 
; Hf 0821 RO = .RO = 1; : 
; B24 08 : DIR_LENGTH = .RO; : 
; 825 08 ; 
; 826 0824 2 + : 
; 827 0825 1 Construct the directory name concatenated with '.DIR;1' in the name ‘ 
3 699 88 $ 2 } buffer, and a descriptor for this name in the name descriptor. : 
: 830 0828 | 
3s 83) 0829 : NAME _DESCCDSC$W_LENGTH] = .NAME_LENGTH + 6; 
; Be 0830 5 CHSMOVE(6, DIR_TYP_VER, CHSMOVET.NAME_LENGTH, .NAME_ADDRESS, NAME_BUFFER)); 
s 85 0831 4 END; ! block to use output registers 
; 834 tt 4 
; 835 0833 4 + 
: 836 0834 4 : Copy the file ID of the created directory to FIB$W_DID so that the next 
3 G7 0835 4 ! directory is cataloged in the directory just created. 
; 838 0836 4 os | 
; 839 0837 4 
; 840 0838 4 FIBCFIBSW_DID_NUM] = .FIBCFIB$W_FID_NUM; | 
; «841 0839 4 FIBLFIBSW_DID_SEQ] = .FIBCFIBSW_FID_SEQ); 
; 84 0840 4 FIBCFIBSW_DID-RVNJ = .FIBCFIBSW-FID-RVNI; | 
: «84 0841 ; END; 
3; «844 ak: 
; 6845 084 + 
: 846 0844 : End of block that is exited when processing is complete. FINAL_STATUS 
; 847 0845 ' contains the status that is to be returned to caller. 
; 848 0846 !- 
; 849 0847 3 
: 850 0848 2 END; ! of block PROCESS | 
; 851 0849 2 
; 852 0850 2 !+ 
; 853 0851 2 ! Deassign the channel and deallocate the event flag. | 
; 854 bees § !e 
; 855 085 
> 856 0854 § STATUS_6 = SDASSGN(CHAN=. CHANNEL); 
s 857 0855 STATUS_7 = LIBSFREE_EF(EFN); | 
; 858 0836 2 IF NOT”.STATUS_7 THEN RETURN .STATUS_7; 
; 859 085 IF NOT .STATUS_6 THEN RETURN .STATUS_6; 
; 860 +t 
; 861 85 '¢ 
3 B66 0860 ! Return the status. 
; 86 0861 !e 
> 864 O86¢ | 
; 865 086 RETURN .FINAL_STATUS; 
; 866 0864 1 END; ! End of routine LIBSCREATE_DIR 


-TITLE CLIBSCREATE_DIR LIBSCREATE_DIR - Create director 
-IDENT \v03-005\ 
-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 
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0020004 00000 P.AAA: .LONG 131076 : 
00000090 99000900 20900006 2090 -LONG 0, 0, 0 ; 
1 38 52 49 44 2€ 00010 P.AAB: ASCII \.DIR;1\ : | 
DIR_TYP_VER= P.AAB 
.EXTRN LIBSANALYZE_SDESC_R2 
EXTRN LIBSCVT_OTB, LIBSFREE_E 
EXTRN LIBSGET EF, LIB$_INVARG 
EXTRN LIBS_INJFILSPE, SYSSPARSE 
EXTRN SYSSASSIGN, SYSSGETDVIW 
EXTRN SYSSDASSGN, SYS$Q1OW 
OFFC 00000 -ENTRY LIBSCREATE. DIR, Save R2,R3,R4,R5,R6,R7,RB,- ; 0132 
5B 000000006 00 9€ 00002 MOVAB Sy$s01 Ou R11 : 
SE F954 «CE 4 00009 MOV -1708(SPS, SP : 
FE20 CD D8 AF i0 2 9000¢ MOVC3 #16, P.AAA, DVI_ITMLST : 0276 
FE24 CD 6E 3 0001 MOVAB DEV_ATTR, OVI_ITMLST+4 * 0266 
6C 95 OOO1A TSTB (APY > 0321 
56 13 0001C BEQL 2$ : 
0050 ««&F 00 6E a 00 2c 0001E MOVCS #0, (SP), #0, #80, $RMS_PTR : 0328 
BO AD 5003 8F BO 00027 MOVW #20483, S$RMS_PTR : 
6 AD 02 90 900¢0 MOVB We. $RMS_PTRF22 : 
CF AD 02 90 00031 MOVB SRMS— PTR+3 i : 
08 AD FF50 CD 9€ 00035 MOVAB NAM, $RMS_PTR+40 ; 
0060 8F 00 6E ivan 00 2¢ 90038 movcS #0, (SP), “hor #96, SRMS_PTR > 0332 
FF50 CD 6002 8F B0 irks MOVW #24578, $RMS_PTR ; 
FF58 CD 18 90 0004C MOVB #24, $RMS pTR* +8 : 
FFSA CD 01 8€ 00051 MNEGB #1, saneoP +10 ; 
FF5C CD FESO CD 9E 00056 MOVAB ESA A BUFFER, RRMS _PTR+12 ; 
50 4 AC D0 0005D MOVL EV-DIR_SPEC, : 0341 
000000006 00 16 00061 JSB PE NSANACY TE SDESC_R2 : 
01 50 £8 00067 BLBS § STATUS_1, 1$ : 0342 
04 0006A RET ; 
QOOOOOFF BF 51 D1 0006B 1$: CMPL , #255 : 0346 
08 1B 00072 BLEQU oH ; 
50 000000006 18F 00 00074 2$: MOVL  #LIBS_INVARG, RO : 0348 
04 00078 RET : 
E4 AD 51 90 0007C 3$ MOVB R11, FAB+52 : 0350 
DC AD 52 D0 00080 MOVL 2, FAB+44 : 0351 
BO AD 9F 00084 PUSHAB FAB > 0360 
000000006 00 gi FB 00087 CALLS #1, SYSS$PARSE ; | 
04 AE 0 D9 OO8E MOVL RO, STATUS 2 : 
05 04 AE E 0092 BLBS § STATUS_2, &$ > 0361 
50 04 AE 9E 90096 MOVAB STATUS~2, RO > 0363 
04 OO09A RET : 
03 84 AD 06 £0 0098 4$: BBS NAM+52, 6$ : 0369 
00E1 31 QOOA0 5$: BRW ; 
00020107 =8F 84 AD D3 OOA3 6$: BITL NAM+52, #131335 : 0373 
F312 OOOAB BNEQ 5$ : 
59 8A AD 9A QOOAD MOVZBL NAM+58, DIR_LENGTH : 0379 | 
59 02 C2 00081 SUBL #2, DIR. ; 
SA 98 AD Oi C7 00084 ADDL DIR. ADDRESS : 0380 
18 85 AD 5 €1 00089 BBC Ag NAN 1g. > 0385 
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F 6 
LIBSCREATE_DIR LIBSCREATE_DIR = Create director 16-Sep-1984 00:40:49 AX-11 Bliss-32 V4.0-74 Pa 19) 
rents LIBSCREATE_DIR = Create directory 12-8081 382 1 48:38 LIBRTL.SRCJLIBCREDIR.B32;1 sd (3) | 
50 98 BD 1 0008 ADDB3 #2, @NAM+72, TERMINATOR : 0396 | 
6A B 36 ih G9cy Loce TERMINATOR, DIR_LENGTH, (DIR_ADDRESS) : 0398) 
56 21 00 ites MOVL_ 1, REALDIR ADDRESS ; 9402 | 
66 02 A6 50 28 000CC MOVC3 RQ, 2(REALDIR_ ADDRESS), (REALDIR_ADDRESS) ; 0412) 
59 0¢ ce 9001 SUBL2 #2, DIR_LENGTA : 0616 
56 8; DO 00006 7$ MOVL DIR_ADDRESS, REALDIR_ADDRESS + 0423 
23 86 AD 03 a 0009 8$ BBC #3, NAM+54, 9$ : 04¢7 
08 AE OF 9000E PUSHAB GROUP : 0433 
56 bp 90e PUSHL 1 ogi : 
000000006 00 03 8 a00E8 CALLS #3,  1BSCVT_OTB : 
B1 0 EY O0EC LBC ~——soiRO,_‘5$ : 
Oc AE OF O00EF PUSHAB MEMBER + 0439 
03 Ag OF OO0F2 PUSHAB 3(REALDIR_ADDRESS) : 
03 DD OOF PUSHL #3 ; 
000000006 00 03 FB 000F7 CALLS #3, LIBSCVT_OTB : 
OF 50 £9 OOOFE BLBC : 
FEGA CD 010E 8F B80 00101 9S: MOVW #270, TEMP_DESC+2 + 0446 
FEGB CD 89 AD 9B 00108 MOVZBW NAM+57, TEMP_DESC + 0447 
FEGC §=6CD 94 AD DO 0010E MOVL NAM+68, TEMP DESC+4 + 0448 
0040 &F 00 6E 00 2C 00114 MOVCS #0, (SP), #07 #64, FIB > 0452 
0260 CE 0011B : 
0260 CE 0501 8F 3¢ OO11E MOVZWL #1281, FIB > 0453 
0264 CE 00040004 8F 00 001 MOVL #262148, FIB+4 + 0454 
0258 CE 40 BF 9A 0012E MOVZBL #64, FIB_DESC : 0459 
025c CE 0260 CE 9E 00134 MOVAB. FIB, FIB-DESC+4 : 0460 
FE34 «= CD FE38 CD 9E 00138 MOVAB NAME_BUFFER, NAME_DESC+4 > 0464 
7E 7C 00142 CLRQ <=(SPY : 0471 
18 AE 9F 00144 PUSHAB CHANNEL ; 
FE48 CD 9F 00147 PUSHAB TEMP_DESC : 
000000006 00 04 FB 00148 CALLS #4, SYSS$ASSIGN : 
19 50 Eg 90132 BLBC STATUS 4, 10$ : 0472 
7E 7C 0015 CLRQ <=(SP : 0479 
7E 7C 00157 CLROQ = (SP) ; 
FE20 CD 9F 00159 PUSHAB DVI_ITMLST ; 
7E D4 00150 CLRL = (SP) ; 
57 28 AE 3C 0015F MOVZWL CHANNEL, R7 : 
57 DD 00163 PUSHL R7 ; 
7E D4 00165 CLRL. = (SP) ; 
000000006 00 08 FB 00167 CALLS #8, SYSS$GETDVIW ; 
01 50 Eg 0016¢ 10$: BLBS STATUS_4, 11$ : 0480 | 
04 03 AE 04 €1 O01 11$: BBC #4, DEV_ATTR+3, 12$ > 0481 
11 03 Ag E9 0017 BLBC DEV_ATTR#S, 14 ; 
57 DD 0017B 128: PUSHL R > 0484 
000000006 00 01 FB 0017D CALLS #1, SYSS$DASSGN : 
50 000000006 &F oe 0184 13$: MOVE #LIBS_INVFILSPE, RO > 0485 
14 AE OF O18 14$:  PUSHAB’ EFN + 0492 
000000006 00 01 F 18F CALLS #1, LIBSGET_EF ; 
52 50 D 0196 MOVL RO, STATUS 5 ; 
0c 3 E8 001 LBS  STATUS_5, T5$ > 0493 
DD 0019C PUSHL 7 : 0496 
000000006 00 01 FB O19 CALLS #1, SYSS$DASSGN ; 
02C4 31 OO1A BRU 358 3 0497 | 
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L_STATUS, 208 


FINAL_STATUS 
_STATUS, 21$ 


B+24, RO 
0, RECATTR+8 
§, we 


@OWNER_UIC 
@OWNER_UIC, UIC 
#3, NAM+54, 24$ 
GROUP, UIC+2 
MEMBER, UIC 
ATR+24 
#34952, FPRO 
LOCAL_ENABLE 
(AP) #3 
12(AP) 

268 
@PROT_ENABLE, LOCAL_ENABLE 
LOCAL "VALUE 

AP), #4 

16(AP) 

@PROT_VALUE, LOCAL_VALUE 
FPRO,~R 

LOCAL_ENABLE, R3 


LOCAL_VALUE, R3 
LOCAL ENABLE, RO 


(AP) 
@MAX_VERSIONS, RECATTR+30 
(AP), #6 


4 (AP) 
#1, FIB+32 
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J 6 
LIBSCREATE_DIR LIBSCREATE_DIR = Create director 16-Sep-1984 00:40:49 AX=11 Bliss-32 V4.0-74 P 3 
18 008 LIBSCREATE_DIR = Create directory 12-8 08- 1 3be 90: 98358 YETBRTL SRETLTOCKED GR B92: 1 — 3 
A 01 Al YE 00426 MOVAB 1(R1), DIR_ADDRESS : 0 
39 70 H GOA MOV -(RO), DIR“LENGTH : 5 
FE30 CD “ 06 Al 004 ADDW3 #6, NAME_LENGTH, NAME_DESC : 0829 | 
FE38 p é : 4 MOVC3 NAME_LENGTH, (NAME_ADBRESS), NAME_BUFFER  : 0830. 
6 FBBC CF 06 4 MOVC3 #6, DIR_TYP VER, (R3) : 
026A CE 0264 CE DO 0043F MOVL F1B+4, FIB+T + 0838 
026E CE 0268 ¢ : 446 MOVW FIB+8, FIB+14 ; 0840 
FF 1 00440 BRW 30$ : 0739 
57 DD 00450 348: PUSHL & : 0854 
000000006 99 9} FB 45 CALLS #1, SYSS$DASSGN : 
. 14 Ay BF ves PUSHAB PN on ; 0855 
000000006 00 oj FB ve: CALLS #1, LIBSFR E EF : 
OA E 0466 BLBC  STATUS_7, 378 : 0856 
94 52 EB 0046 BLBS §§ STATUS~6, 36$ : 0857 
0 52 DO 0046C 358: MOVL STATUS—6, RO : 
04 0046F RET : 
50 56 D0 0470 3$$: MOVL FINAL_STATUS, RO : 0863 
04 00473 37$: RET + 0864 
; Routine Size: 1140 bytes, Routine Base: _LIBSCODE + 0016 
: He te 1 END ! End of module LIBS$CREATE_DIR | 
° ; 6h e 
; 869 0867 0 ELUDOM veces Fs | 
| 
; PSECT SUMMARY 
; Name Bytes Attributes 
:  _LIBSCODE 1162 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Pe Si ee 0 ee ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 133 0 1000 00:01.4 
: COMMAND QUALIFIERS 
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seed LIBSCREATESDIR = Create directory IRSSDcH9RE 9:90:59 EMAL 84LRSCHRdtata7ABo tng 


Size 114 0% fg + 22 data bytes 
; Run * {tees 

; Elapsed Time: 

: Lines/CPU Min: 3 ne 

3 Lexemes/CPU-Min: 354 

3; Memo ry Used: 387 pages 

; Compilation Complete 
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